% Campbell_Shiller_UK plot

clearvars -except Globaloption option

if exist('Globaloption', 'var') == 0
    Globaloption.savefig = 1;
end

%% Benchmark
startdatenum = 1760;
enddatenum = 1914;

load MAT/cy_UK_30_1760.mat
output_rp = 0.03;
f = figure;
f.Position = [1000 918 560 300];
ylimit = [1, 2];
plot_CI(startdatenum:enddatenum, s, std_coeff, gdebt, upper, ylimit)
%title(['GDP risk premium ',num2str(output_rp*100),'%'])
f.PaperSize = [6 3.75];

if Globaloption.savefig == 1
    print(['../../results/figures_main/UK/preWWI/cs_UK_', num2str(output_rp * 1000)], '-dpng', '-r1000');
end



